Mac100% 1999 April/MAC100-1999-04.ISO.7z/MAC100-1999-04.ISO/ｵﾝﾗｲﾝｿﾌﾄ定点観測/Utility/CNIF_MacroMaker 1.4.sit/CNIF_MacroMaker 1.4/CNIF_MacroMaker/background_36594.xml

Extensible Markup Language | 1999-01-11 | 87KB | 1,417 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>36594</id>
    <filler1>0</filler1>
    <bitmap>BMAP_38784.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
    <part>
        <id>61</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>185</left>
            <top>30</top>
            <right>505</right>
            <bottom>46</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseUpif the optionKey is down then openEditLogelse send "mouseUp" to bg fld id 87end mouseUp</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>4</top>
            <right>194</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>mainMenu</name>
        <script>on mouseDownmainMenuend mouseDown</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>200</left>
            <top>4</top>
            <right>445</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenu</name>
        <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>285</left>
            <top>317</top>
            <right>305</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8349</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevBgend mouseUp</script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>306</left>
            <top>317</top>
            <right>326</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23718</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevCdend mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>325</left>
            <top>317</top>
            <right>345</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23717</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextCdend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>317</top>
            <right>366</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextBgend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>370</left>
            <top>317</top>
            <right>390</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13301</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevMcend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>389</left>
            <top>317</top>
            <right>409</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13302</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextMcend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>454</left>
            <top>317</top>
            <right>474</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6720</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoTopCdend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>330</top>
            <right>12</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itset the visible of bg fld id 105 to not itset the visible of bg fld id 106 to not itset the visible of bg fld id 107 to not itset the visible of bg fld id 108 to not itset the visible of bg fld id 109 to not itset the visible of bg fld id 111 to not itset the visible of bg fld id 112 to not itset the visible of bg fld id 114 to not itend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>487</left>
            <top>5</top>
            <right>505</right>
            <bottom>23</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>createMark</name>
        <script>on mouseUpset marked of this card to hilite of meend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>318</top>
            <right>153</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>NIFTY-Navigator II</name>
        <script>on mouseUpsend "mouseUp" to bg btn id 26 of card " ﾃ厭ﾃ丑ﾃ嘉ｧ "end mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>28</top>
            <right>84</right>
            <bottom>48</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseDownforumMenuend mouseDown</script>
    </part>
    <part>
        <id>66</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>412</left>
            <top>284</top>
            <right>493</right>
            <bottom>304</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ</name>
        <script>on mouseUp filePathput "*MES*ﾃ…ﾃ嘉運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃ…ﾃ‘" into k1a -- RTNput "*MES*ﾃ…ﾃ嘉嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃ…ﾃ‘" into k1b -- RMNput return & "ﾃ…ﾃ‘" into k2readLogFile filePath,k1a,k2,k1bend mouseUp</script>
    </part>
    <part>
        <id>67</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>284</top>
            <right>402</right>
            <bottom>304</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳</name>
        <script>on mouseUpif the hilite of cd btn id 7 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" thenanswer "ﾃ‡ﾂｱﾃ‡ﾃε｢ﾃ氾｣cﾃｩ竏ｫﾃ‡ﾃεｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｩwﾃｭﾃ凝‡ï｣ｿﾃ｢ï｣ｿﾃｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "OK" or "Cancel"if it is "Cancel" then exit mouseUpset the cursor to watchput "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｩwﾃｭﾃ凝｢ï｣ｿﾃｨﾃｺﾃｭﾃœ"repeat with f = 1 to 3put "TITLElist" & f into fNameput bg fld fName into titleListif titleList is empty then next repeatput word 1 of last line of titleList into nif length(n) is 3 then put 26 into melse put 30 into mput the number of lines of titleList into nrepeat with r = 1 to nif char m of line r of titleList <> "=" then put " " into char m of line r of titleListend repeatput titleList into bg fld fNameend repeatput cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " into readListput bg fld id 14 && bg fld id 87 into roomNumput MtScanList(readList,roomNum) into listrepeat with r = the number of lines of list down to 1delete line (item 1 of line r of list) of readListend repeatput readList into cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 "hide msgend ifend mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>355</left>
            <top>28</top>
            <right>505</right>
            <bottom>99</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenuList</name>
        <script></script>
    </part>
    <part>
        <id>78</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>15</left>
            <top>286</top>
            <right>118</right>
            <bottom>302</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ液ﾃ隠ﾃ…[ﾃ嘉｣ﾃ栄ﾃ嘉ｧﾃ叡ﾃ丑</name>
        <script>on mouseUpset the lockText of bg fld id 58 to the hilite of meset the lockText of bg fld id 100 to the hilite of meset the lockText of bg fld id 101 to the hilite of meend mouseUp</script>
    </part>
    <part>
        <id>85</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>496</left>
            <top>326</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>BookMark</name>
        <script>on mouseUpsetBookmarkend mouseUp</script>
    </part>
    <part>
        <id>86</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>476</left>
            <top>314</top>
            <right>512</right>
            <bottom>328</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>BookMarkNo</name>
        <script></script>
    </part>
    <part>
        <id>87</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>85</left>
            <top>30</top>
            <right>133</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseUpglobal ListSelectExitset the cursor to watchput bg fld id 14 into forumNameif forumName is empty thenbeepanswer "ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃｱﾂｺﾃ‡ï｣ｿﾃｪﾃ甘‡窶ｦﾃｪ窶ｺﾃｭﾃ凝‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"exit mouseUpend ifput me into mif the optionKey is up thenput empty into sif m is empty then put 1 into mput the number of cards of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" into cnrepeat with r = 1 to cnif bg fld id 14 of cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" is forumName thenput bg fld id 58 of cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｱﾂ｢ﾃｬﾂｫﾃｪﾃｮﾃｪ窶ｺﾃｭﾃ‹" into RoomNameListif RoomNameList is empty or "ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｨﾃ崚｣ﾂｵﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ" is in RoomNameList then next repeatrepeat with l = 1 to the number of lines of RoomNameListdelete char 3 to 26 of line l of RoomNameListput word 1 of line l of RoomNameList into nif n is m then put "s=" & l into send repeatif s is empty then put "s=1" into sget ListSelect ("*1",RoomNameList,s,"ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ‡ï｣ｿﾃｩﾃ甘ｬﾃｦﾃ‡竏妥‡ﾃ暗｢ﾃ氾｣cﾃｩ竏ｫﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③","100,40,410,280",return,"ASLFont+,9")if ListSelectExit is "Cancel" or it is empty then exit mouseUpput addzero(word 1 of it,2) into medelete char 1 to 4 of itput it into line 1 of bg fld id 61exit mouseUpend ifend repeatend ifask "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ窶佚ｧﾃ愿‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③(1 - 20)" with mif the result is "Cancel" then exit mouseUpif (it is not a integer or it < 1 or it > 20) thenbeepelseput addzero(it,2) into meend ifend mouseUp</script>
    </part>
    <part>
        <id>91</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>160</left>
            <top>318</top>
            <right>274</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳</name>
        <script>on mouseUpvisual effect dissolve very fastif the optionKey is down thengo to card id 40331elsego to card id 32588end ifend mouseUp</script>
    </part>
    <part>
        <id>92</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>241</left>
            <top>285</top>
            <right>258</right>
            <bottom>304</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ⒣\｢</name>
        <script>on mouseDownif the commandKey is up then wait 15if the mouse is "down" thenput "ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶ;ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶﾃ⑿ﾃｫIﾃｫï｣ｿﾃ⒀;ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀;ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃｯ¥ﾃｩﾂｶ;ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃｯ¥ﾃｩﾂｶﾃ⑿ﾃｫIﾃｫï｣ｿﾃ⒀;ﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃｯ¥ﾃｩﾂｶ;-;ﾃｫIﾃｫï｣ｿﾃ｢窶敕ｨﾃ､ﾃｧXﾃｪV" into listif (item 4 of the screenRect - the bottom of cd window) < 60 then get "242,205"else get the topLeft of meUxPop list,,,itif it is empty then exit to HyperCardmouseUp itexit to HyperCardend ifend mouseDownon mouseUp modeset the cursor to watchput (the shiftKey is down) into shput (the optionKey is down) into opif mode is empty thenif op then put "ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃｯ¥ﾃｩﾂｶ" into modeelse put "ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶ" into modeend ifif "ﾃ⑿ﾃｫIﾃｫï｣ｿﾃ⒀" is in mode then put true into shif mode is "ﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃｯ¥ﾃｩﾂｶ" thenpalette "WindowSelect",line 1 of bg fld id 108else if mode is "ﾃｫIﾃｫï｣ｿﾃ｢窶敕ｨﾃ､ﾃｧXﾃｪV" thenresetSelectListelse if "ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右" is in mode thenset the cursor to watchif "ﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀" is in mode thenshowTitleWinelserepeat with r = 3 down to 1showTitleWindow r,shend repeat-- palette "WindowSelect",line 1 of bg fld id 108end ifelseput the number of bg fld "TITLElist1" & "," & the number of bg fld "TITLElist2" & "," & the number of bg fld "TITLElist3" into fput max(f) into fput last char of the short name of bg fld f into nput bg fld f into dataListif sh thenput bg fld id (104 + n) into selectedListelseput empty into selectedListend ifshowTitleList dataList,line 1 of bg fld id 61 && "-" && n && "-" & return & "ﾃｬﾂｫﾃ‡窶ｺﾃ‡ﾎｩﾃ‡ﾂ｢ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀",selectedListend ifend mouseUpon resetSelectListrepeat with f = 1 to 3put "TITLElist" & f into fNameput selectList(bg fld fName) into bg fld id (104 + f)end repeatend resetSelectListon showTitleWinput bg fld "TITLElist1" into titleListput bg fld "TITLElist2" after titleListput bg fld "TITLElist3" after titleListsort lines of titleListput the number of lines of titleList into nput empty into listput 1 into fput 400 into rnrepeatset the cursor to busyget line 1 to rn of titleListif it <> empty and last char of it <> return then put return after itif length(list & it) > 30000 thenshowTitleWindow f,"ﾃｮ窶佚ｧﾃ愿ｨﾃ｡",listput it into listadd 1 to fif f > 3 thenexit repeatend ifelse if n < 1 thenput it after listshowTitleWindow f,"ﾃｮ窶佚ｧﾃ愿ｨﾃ｡",listexit repeatelseput it after listend ifdelete line 1 to rn of titleListsubtract rn from nif the number of lines of list > 10 then put 10 into rnelse put 400 into rnend repeatplay harpsichord g6send showTitleWin</script>
    </part>
    <part>
        <id>94</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>276</left>
            <top>284</top>
            <right>332</right>
            <bottom>304</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ･ﾃｼ ﾃｧﾄｱ</name>
        <script>on mouseDownif the commandKey is up then wait 15if the mouse is "down" thenput "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣;ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬ;ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥;ﾃｩﾂｩﾃｯ邃｢ﾃ‡ﾃεｮ竕 ﾃ･ﾃｦ;-;ﾃ嘉ｧﾃ碓," & line 1 of bg fld id 114 into listif (item 4 of the screenRect - the bottom of cd window) < 60 then get "276,237"else get the topLeft of meUxPop list,"N",,itif line 1 of it is empty then exit to HyperCardput item 1 of line 2 of it into modeput item 2 of line 2 of it into logNameput item 4 of line 2 of it into logNumif the optionKey is down and logName <> empty thenset the cursor to watchput LogPath() & logName into filePathput EditorPath() into editorif there is a file filePath thenopen filePath with editorelsebeepanswer "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃｧ窶ｺﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"end ifelsemouseUp mode,logName,logNumend ifexit to HyperCardend ifend mouseDownon mouseUp mode,logName,logNumput (the hilite of cd btn id 9 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹") into sortChainif the shiftKey is down then put not(sortChain) into sortChainput (the optionKey is down or mode is "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬ") into opif mode is empty thenput bg fld id 112 into CNMFindStrput "OK,ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥,Cancel" into dlogBtnput "ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃｳﾃ津⑿ﾃ㈲ﾃ⒀,ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃｳﾃ津⑿ﾃ㈻ﾃ⒀,ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃｳﾃ津⑿ﾃ㈶ﾃ⒀" into promptsget InputDialog("ﾃ･ﾃｼ ﾃｧﾄｱ",prompts,CNMFindStr,dlogBtn," and, or,(1 or 2) and 3")put line 1 of it into radioBtnput line 2 of it into selBtnput line 3 of it into findStr1put line 4 of it into findStr2put line 5 of it into findStr3if selBtn is "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥" thenput "     " into findStr1put empty into findStr2put empty into findStr3end ifelseput " and" into radioBtnif mode is "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥" thenput "     " into findStr1put empty into findStr2put empty into findStr3put "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥" into selBtnelse if mode is "ﾃｩﾂｩﾃｯ邃｢ﾃ‡ﾃεｮ竕 ﾃ･ﾃｦ" thenget cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"if it is empty then ask "ﾃ‡窶 ﾃ‡ﾂｻﾃ‡ﾎｩﾃ‡ﾃオDﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"if it <> empty thenput it into cd fld "UserID" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"get " " & it & " "end ifput it into findStr1put empty into findStr2put empty into findStr3put "OK" into selBtnelseput "+ " into findStr1put empty into findStr2put empty into findStr3put "OK" into selBtnend ifend ifif findStr1 is empty and findStr2 is empty and findStr3 is empty thenif selBtn <> "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥" then exit mouseUpend ifif selBtn is "Cancel" then exit mouseUpif sortChain then put "ﾃ⑿ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｨﾃ｡ﾃ⒀" into melse put "ﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀" into mput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ･ﾃｼﾃｧﾄｱﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & mif mode is empty then put findStr1 &","& findStr2 &","& findStr3 into bg fld id 112set the cursor to watchput bg fld "TITLElist1" into titleListput bg fld "TITLElist2" after titleListput bg fld "TITLElist3" after titleListput bg fld id 114 into logListif (mode is "ﾃ嘉ｧﾃ碓" or "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣" is in mode) and logList <> empty thenif logNum is empty or logNum < 1 then put the number of items of line 2 of logList into logNumput item logNum of line 2 of logList into fNumput item logNum of line 3 of logList into lNumsort lines of titleListput empty into scanTitleput MtScanList(titleList,fNum & " ") into sListrepeat with r = 1 to the number of lines of sListput item 1 of line r of sList into nget line n of titleListif word 1 of it is fNum or word 2 of it is fNum thendelete line 1 to (n - 1) of titleListexit repeatend ifend repeatput MtScanList(titleList,lNum & " ") into sListrepeat with r = 1 to the number of lines of sListput item 1 of line r of sList into nget line n of titleListif word 1 of it is lNum or word 2 of it is lNum thenput line 1 to n of titleList into scanTitleput empty into titleListexit repeatend ifend repeatelseif radioBtn is " and" thenput titleList into scanTitleif findStr1 <> empty and scanTitle <> empty thenput MtPickUpLines(scanTitle,findStr1) into scanTitleend ifif findStr2 <> empty and scanTitle <> empty thenput MtPickUpLines(scanTitle,findStr2) into scanTitleend ifif findStr3 <> empty and scanTitle <> empty thenput MtPickUpLines(scanTitle,findStr3) into scanTitleend ifelseif radioBtn is " or" thenput empty into scanListif findStr1 <> empty and titleList <> empty thenget MtPickUpLines(titleList,findStr1)if it <> empty then put it & return after scanListend ifif findStr2 <> empty and titleList <> empty thenget MtPickUpLines(titleList,findStr2)if it <> empty then put it & return after scanListend ifif findStr3 <> empty and titleList <> empty thenget MtPickUpLines(titleList,findStr3)if it <> empty then put it & return after scanListend ifelse if radioBtn is "(1 or 2) and 3" thenput empty into scanListif findStr1 <> empty and titleList <> empty thenget MtPickUpLines(titleList,findStr1)if it <> empty then put it & return after scanListend ifif findStr2 <> empty and titleList <> empty thenget MtPickUpLines(titleList,findStr2)if it <> empty then put it & return after scanListend ifif findStr3 <> empty and scanList <> empty thenget MtPickUpLines(scanList,findStr3)put it into scanListend ifput scanList into scanTitleif findStr1 is empty or findStr2 is empty thenput " and" into radioBtnelse if findStr3 is empty thenput " or" into radioBtnend ifend ifput empty into scanTitlerepeat with r = 1 to the number of lines of scanListget line r of scanListif it is not in scanTitle thenput it & return after scanTitleend ifend repeatend ifend ifif scanTitle <> empty thenif op then put newChain(scanTitle) into scanTitlesort lines of scanTitle-- ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ ﾃ‡ï｣ｿﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃ‡窶ｦﾃｯﾂｿﾃ‡笳甘ｫﾃｷﾃ‡ﾂｶif sortChain thenput MtSortByRes(scanTitle) into scanTitleend ifif logName <> empty thenput logName into promptelse if selBtn is "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥" thenput "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥ﾃ①" into promptelse if "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣" is in mode or mode is "ﾃ嘉ｧﾃ碓" thenput "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣" into promptif op or mode is "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬ" thenput "ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬ" after promptend ifelseput findStr1 & return & findStr2 & return & findStr3 into strrepeat with r = 3 down to 1if line r of str is empty then delete line r of strend repeatif radioBtn is "(1 or 2) and 3" thenput " or" into c1put " and" into c2elseput radioBtn into c1put radioBtn into c2end ifput the number of lines of str into nif n is 3 thenput quote & line 1 of str & quote & c1 && quote & line 2 of str & quote & c2 && quote & line 3 of str & quote into strelse if n is 2 thenput quote & line 1 of str & quote & c1 && quote & line 2 of str & quote into strelseput quote & line 1 of str & quote into strend ifput "ﾃ･ﾃｼﾃｧﾄｱﾃｯ竏づｩﾃｶﾃｳﾃ’ ﾃ⑦" && str into promptend ifhide msgfoundTitle scanTitle,prompt & "ﾃ⒃" && the number of lines of scanTitle && "ﾃ･ﾃｨﾃ⒄"-- showTitleList scanTitle,prompt & return & "ﾃｬﾂｫﾃ‡窶ｺﾃ‡ﾎｩﾃ‡ﾂ｢ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀ﾃ①ﾃ①ﾃ⒃" && the number of lines of scanTitle && "ﾃ･ﾃｨﾃ⒄"elsehide msgplay boing c5answer "ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"end ifend mouseUpon foundTitle dataList,prompt,cTitle,sglobal CNMsaveCheckdelete char 1 to 2 of cTitleput the number of lines of dataList into nput empty into listput 1 into fput 400 into rnrepeatset the cursor to busyget line 1 to rn of dataListif it <> empty and last char of it <> return then put return after itif cTitle <> empty thenput "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™ -" && f && "-" into wNameelseput "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ  -" && f && "-" into wNameend ifif length(list & it) > 30000 thenshowFoundWindow wName,list,promptput it into listadd 1 to fif f > 3 thenexit repeatend ifelse if n < 1 thenput it after listif s is empty then put item 1 of MtScanList(list,cTitle) into s -- ﾃｫIﾃｫï｣ｿﾃｧsshowFoundWindow wName,list,prompt,sexit repeatelseput it after listend ifdelete line 1 to rn of dataListsubtract rn from nif the number of lines of list > 10 then put 10 into rnelse put 400 into rnend repeatif f < 3 thenrepeat with r = (f + 1) to 3if cTitle <> empty thenput "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™ -" && r && "-" into wNameput r + 9 into welseput "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ  -" && r && "-" into wNameput r + 3 into wend ifif there is a window wName thenput "pass" into item w of CNMsaveCheckclose window wNameend ifend repeatend ifplay harpsichord g6send foundTitleon showFoundWindow wName,list,prompt,sglobal CNMsaveCheck,OCwinif s is empty then put 0 into sput ("ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™" is in wName) into modeput word (the number of words of wName) - 1 of wName into wput "TITLElist" & w into fNameput the rect of bg fld fName into wRectif mode thenadd 12 to item 1 of wRectadd 244 to item 2 of wRectadd 12 to item 3 of wRectadd 160 to item 4 of wRectelse-- add - 8 to item 1 of wRect-- add 56 to item 2 of wRect-- add - 8 to item 3 of wRect-- add 54 to item 4 of wRectend ifadd -2 to item 4 of wRectif there is a window wName thenset the text of window wName to listset the prompt of window wName to promptset selectedLine of window wName to sshow window wNameelseset the cursor to watchListoid wName,list,"zoom",wRect,"dis",s,"ASLFont+,9",return,prompt,DontAllowReorgget the resultif it <> empty thenbeepanswer itend ifif mode thenput false into item (w + 9) of CNMsaveCheckelseput false into item (w + 3) of CNMsaveCheckend ifput true into OCwinend ifend showFoundWindowfunction newChain scanTitleput bg fld "TITLElist1" into titleListput bg fld "TITLElist2" after titleListput bg fld "TITLElist3" after titleListput empty into cTitleput the number of lines of scanTitle into n1repeat with r = 1 to n1get line r of scanTitleif it is in cTitle then next repeatput UxSearchChain(it,titleList) into slistput the number of lines of slist into n2repeat with l = 1 to n2set the cursor to busyget line l of slistif it is not in cTitle then put it & return after cTitleend repeatend repeatreturn cTitleend newChain</script>
    </part>
    <part>
        <id>96</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>317</top>
            <right>430</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13303</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGOPrevBMend mouseUp</script>
    </part>
    <part>
        <id>97</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>429</left>
            <top>317</top>
            <right>449</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13304</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGONextBMend mouseUp</script>
    </part>
    <part>
        <id>98</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>319</top>
            <right>31</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GoHome</name>
        <script>on mouseUpgoHomeend mouseUp</script>
    </part>
    <part>
        <id>99</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>448</left>
            <top>6</top>
            <right>466</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12490</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>openGuide</name>
        <script>on mouseUpCNMGuide "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ"end mouseUp</script>
    </part>
    <part>
        <id>102</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>139</left>
            <top>286</top>
            <right>172</right>
            <bottom>302</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>1</name>
        <script>on mouseUpBringFld "TITLElist1"end mouseUp</script>
    </part>
    <part>
        <id>103</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>171</left>
            <top>286</top>
            <right>204</right>
            <bottom>302</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>2</name>
        <script>on mouseUpBringFld "TITLElist2"end mouseUp</script>
    </part>
    <part>
        <id>104</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>203</left>
            <top>286</top>
            <right>236</right>
            <bottom>302</bottom>
        </rect>
        <style>radiobutton</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>3</name>
        <script>on mouseUpBringFld "TITLElist3"end mouseUp</script>
    </part>
    <part>
        <id>105</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>272</top>
            <right>98</right>
            <bottom>315</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>106</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>97</left>
            <top>272</top>
            <right>187</right>
            <bottom>315</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>107</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>186</left>
            <top>272</top>
            <right>276</right>
            <bottom>315</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>108</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>221</left>
            <top>30</top>
            <right>256</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>paletteLoc</name>
        <script></script>
    </part>
    <part>
        <id>109</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>438</left>
            <top>272</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script>on mouseUpif the optionKey is down thenput empty into meexit mouseUpend ifset the cursor to watchput "ﾃｩﾃ甘‡ﾃ凝‡ﾂｱﾃ‡竅„ﾃ‡ﾂｵﾃ⑴ﾃｨdﾃｯﾂｰﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｭﾃœ"put (bg fld id 116 is "RTN") into RTNput bg fld "TITLElist1" into dataListput bg fld "TITLElist2" after dataListput bg fld "TITLElist3" after dataListsort lines of dataListput word 1 of dataList into wif w is "+" then put word 2 of dataList into wput length(w) + 2 into xput char 3 to x of line 1 of dataList into sput char 3 to x of last line of dataList into eput empty into listput empty into prevput e into rrepeat until the number of lines of dataList < 2set the cursor to busyput char 3 to x of line 1 of dataList into l1put char 3 to x of line 2 of dataList into l2if l2 - l1 <> 1 thenif l2 = l1 thenput "+" && l1 & return after listelseif RTN thenrepeat with r = l1 + 1 to l2 - 1put "-" && addzero(r,x - 2) & return after listend repeatend ifend ifend ifdelete line 1 of dataListend repeatput list into mehide msgend mouseUp</script>
    </part>
    <part>
        <id>111</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>185</left>
            <top>30</top>
            <right>220</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>lastNumber</name>
        <script></script>
    </part>
    <part>
        <id>112</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>257</left>
            <top>30</top>
            <right>354</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>prevFindStr</name>
        <script></script>
    </part>
    <part>
        <id>114</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>275</left>
            <top>272</top>
            <right>439</right>
            <bottom>315</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｩﾃ甘ｬﾃｦﾃｮﾃ陛 ﾃ•</name>
        <script></script>
    </part>
    <part>
        <id>116</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>134</left>
            <top>28</top>
            <right>184</right>
            <bottom>48</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name></name>
        <script>on mouseDownUxPop "RTN;RMN","T",,the topLeft of meend mouseDown</script>
    </part>
    <part>
        <id>117</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>467</left>
            <top>6</top>
            <right>485</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6356</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>HelpON/OFF</name>
        <script>on mouseUpHelpToggleend mouseUp</script>
    </part>
    <part>
        <id>101</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>24</left>
            <top>61</top>
            <right>505</right>
            <bottom>273</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>TITLElist3</name>
        <script>on mouseUpsend "clickTitle the target" to bg fld id 58end mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mesetMsgLocpass mouseLeaveend mouseLeave</script>
    </part>
    <part>
        <id>100</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>24</left>
            <top>61</top>
            <right>505</right>
            <bottom>273</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>TITLElist2</name>
        <script>on mouseUpsend "clickTitle the target" to bg fld id 58end mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of mesetMsgLocpass mouseLeaveend mouseLeave</script>
    </part>
    <part>
        <id>58</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>8</left>
            <top>47</top>
            <right>489</right>
            <bottom>259</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <true /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>TITLElist1</name>
        <script>on mouseUpclickTitle the targetend mouseUpon mouseLeaveif selectedLine of me <> empty then select line 0 of me-- setMsgLocpass mouseLeaveend mouseLeaveon clickTitle clickFldset cursor to watchput (the shiftKey is down) into shput (the optionKey is down) into opput the number of bg fld "TITLElist1" & "," & the number of bg fld "TITLElist2" & "," & the number of bg fld "TITLElist3" into fif max(f) is the number of clickFld thenput the value of the clickLine into cTextput the selectedText of clickFld into sTextif char 6 of sText is " " then get 7 else get 9put char it to it + 7 of sText into scanIDif scanID is "********" thenelse if sh or op thencomChain sText,opelse if checkID(the clickText) thenput MtPickUpLines(bg fld id 22 of cd id 25751,scanID) into scanListget the clickLocput 20 into item 1 of itadd 20 to item 2 of itset the loc of msg to itif scanList <> empty thenrepeat until the number of lines of scanList < 2get last line of scanListdelete item 1 of itdelete last line of scanListput "," & it after last line of scanListend repeatput scanListelse put "ﾃ❶ﾃ映ﾃ…[ﾃ運ﾃ‡ﾂｻﾃ‡ﾂｵﾃ❶"get the secondswait until abs(item 2 of the mouseLoc - item 2 of the clickLoc) > 3 or the seconds - it > 5 or the mouse is downhide msgsetMsgLocelseput cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " into readListput bg fld id 111 into lastNumif sText is empty thendo "select line 0 of" && clickFldexit clickTitleend ifput word 1 of sText into mesNoif mesNo is "+" then put word 2 of sText into mesNoif (lastNum - mesNo) < 999 thenif length(mesNo) is 3 then put 26 into melse put 30 into mput (char m of sText is "*") into rMarkdelete char 1 to (m + 1) of sTextif sText <> empty and mesNo is a integer thenput bg fld id 14 && bg fld id 87 && mesNo into readNumget readNum & "   " & sTextif the hilite of cd btn id 7 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" thenput word 2 of the selectedLine of clickFld into clif rMark then-- ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳put item 1 of MtScanList(readList,readNum) into xif x <> empty then delete line x of readList-- ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳do "put" && quote & " " & quote && "into char m of line cl of" && clickFldelse-- ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳if it is not in readList then put it & return after readList-- ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳do "put" && quote & "*" & quote && "into char m of line cl of" && clickFldend ifelseif it is not in readList then put it & return after readListend ifput readList into cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 "mark cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 "end ifend ifend ifdo "select line 0 of" && clickFldelseBringFld the value of last word of clickFldend ifend clickTitle</script>
    </part>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ</text>
    </content>
    <content>
        <layer>background</layer>
        <id>86</id>
        <text>0 / 0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>13</id>
        <text> ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 Untitled_1</text>
    </content>
    <content>
        <layer>background</layer>
        <id>108</id>
        <text>false</text>
    </content>
    <name>ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ</name>
    <script>on idleglobal OCwinif OCwin is true thensetCNMMenuput false into OCwinend ifpass idleend idleon closebackgroundif (the number of bg fld id 100) < (the number of bg fld id 101) then BringFld "TITLElist2"if (the number of bg fld id 58) < (the number of bg fld id 100) then BringFld "TITLElist1"set the hilite of bg btn id 78 to truesend "mouseUp" to bg btn id 78if there is a window "WindowSelect" thenput true into line 2 of bg fld id 108close window "WindowSelect"else put false into line 2 of bg fld id 108if there is a menu "CNM" then delete menu "CNM"pass closeBackgroundend closebackgroundon openbackgroundif line 2 of bg fld id 108 is true and the short name of this cd <> " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " then palette "WindowSelect",line 1 of bg fld id 108setCNMMenupass openbackgroundend openbackgroundon openCardget (the short name of this cd is " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 ")if there is a window "WindowSelect" thenif it is true then hide window "WindowSelect"else show window "WindowSelect"elseif line 2 of bg fld id 108 is true and it is false then palette "WindowSelect",line 1 of bg fld id 108end ifif bg fld id 116 is empty thenif the hilite of cd btn id 1 of cd id 40331 then get "RTN" else get "RMN"put it into bg fld id 116end ifpass openCardend openCardon closecardglobal CNMsaveCheck,CNMcheckListCNMallCloseput empty into CNMsaveCheckput empty into CNMcheckListpass closecardend closecardon suspendStackput winList() into listrepeat with r = 1 to the number of lines of listhide window line r of listend repeatif there is a window "WindowSelect" then hide window "WindowSelect"if there is a menu "CNM" then delete menu "CNM"pass suspendStackend suspendStackon resumeStackput winList() into listrepeat with r = the number of lines of list down to 1show window line r of listend repeatif there is a window "WindowSelect" then show window "WindowSelect"setCNMMenupass resumeStackend resumeStackon doMenu mItem,mNameif mName is "CNM" and mItem is not in cnmMList() thenif there is a window mItem thenshow window mItemend ifelse pass doMenuend doMenuon commandKeyDown whichKeyif whichKey is "f" and short name of this cd <> " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " then sendBtn "bg btn id 94"else if whichKey is "s" thenif winList(true) <> empty then entryTitleelse pass commandKeyDownelse if whichKey is "t" then selectNewTitleelse if whichKey is "w" thenput winList(true) into wNameif wName<> empty then close window wNameelse pass commandKeyDownelse pass commandKeyDownend commandKeyDownon controlKey whichKeyif short name of this cd <> " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " thenif whichKey = 3 then -- CshowComChainif the result is empty thenpass controlKeyend ifelse if whichKey = 12 then -- LsendBtn "bg btn id 91"else if whichKey = 14 then -- Nget "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣"send "mouseUp it" to bg btn "ﾃ･ﾃｼ ﾃｧﾄｱ"else if whichKey = 16 then -- Pif there is a window "WindowSelect" then close window "WindowSelect"else palette "WindowSelect",line 1 of bg fld id 108else if whichKey = 47 then -- /sendBtn "bg btn id 92"else if whichKey = 49 then -- 1if the optionKey is down then showTitleWindow 1else sendBtn "bg btn id 102"else if whichKey = 50 then -- 2if the optionKey is down then showTitleWindow 2else sendBtn "bg btn id 103"else if whichKey = 51 then -- 3if the optionKey is down then showTitleWindow 3else sendBtn "bg btn id 104"else pass controlKeyelse pass controlKeyend controlKeyon enterKeyput (the optionKey is up) into opput Winlist() into listif list is empty or the selectedText <> empty then pass enterKeyput the number of lines of list into nif op then put 1 into nrepeat with r = 1 to nentryTitleclose window line r of listend repeatend enterKeyon keyDown whickKeyglobal CNMsaveCheckput (the optionKey is up) into opif whickKey is "□" thenput Winlist() into listput the number of lines of list into nif op then put min(1,n) into nrepeat with r = 1 to nput line r of list into wNameput "pass" into item winNumber(wName) of CNMsaveCheckclose window wNameend repeatelse pass keyDownend keyDownon closePalette wNameif wName is "WindowSelect" then put the loc of window "WindowSelect" into line 1 of bg fld id 108else pass closePaletteend closePaletteon clearDataglobal cNMDialogOFFif cNMDialogOFF <> "true" thenanswer "ﾃ映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃｨﾂ｡ﾃ｣ﾃｩﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ" or "OK" or "Cancel"if it is "Cancel" then exit clearDataend iflock screenput (cNMDialogOFF is "true" or it is "ﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪ") into modeif mode then put "14,58,61,87,100,101,105,106,107,108,111,114" into listelse put "58,100,101,105,106,107,108,111,114" into listrepeat with r = 1 to the number of items of listput empty into bg fld id (item r of list)end repeatif the hilite of cd btn id 1 of cd id 40331 then get "RTN" else get "RMN"put it into bg fld id 116if mode thenif the number of lines of bg fld "subMenuList" <= 2 then put " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " & return into bg fld "subMenuList"reNameCard "Untitled_1"end ifend clearDataon closeListoid WName,WIDglobal CNMsaveCheck,CNMcheckList,OCwinif CNMwinName() is in WName or "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ " is in wName or "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™" is in wName thenput selectedLine of window wName into listput winNumber(wName) into wif list <> empty and item w of CNMsaveCheck <> "pass" and not(item w of CNMsaveCheck is true and line w of CNMcheckList is list) thenbeepanswer quote & WName & quote & return & "ﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾎｩﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ‡ï｣ｿﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳ﾃ‡窶ｦﾃｬoﾃｲ^ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ⑨" with "Cancel" or "OK"if it is "OK" thenif w > 3 then setReadList2 list,the text of window wNameelse setReadList list,wend ifend ifput true into OCwinelse pass closeListoidend closeListoidfunction winList topWinget CNMwinName()put it && "-" into wNameput it & "ﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀" && "-" into wName2put empty into wListput the windows into listrepeat with r = 1 to the number of lines of listget line r of listif wName is in it or wName2 is in it or "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ " is in it or "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™" is in it thenif topWin is true then return itelse put it & return after wListend ifend repeatreturn wListend winListfunction winNumber wNameput word (the number of words of wName) - 1 of wName into wif "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ " is in wName then add 3 to welse if "ﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀" is in wName then add 6 to welse if "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™" is in wName then add 9 to wreturn wend winNumberon CNMallCloseglobal CNMsaveCheckput (the optionKey is down) into opput winList() into listrepeat with r = 1 to the number of lines of listput line r of list into wNameif op is true then put "pass" into item winNumber(wName) of CNMsaveCheckclose window wNameend repeatend CNMallCloseon selectNewTitleset the cursor to watchput winList(true) into wNameif wName <> empty thenif "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ  -" is in wName or "ﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀" is in wName or "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™" is in wName thenput selectList(the text of window wName) into slistelseput bg fld id (104 + winNumber(wName)) into slistend ifif slist <> empty thenput char 1 to 270 of slist into slistrepeat until the number of chars of slist < 254delete last item of slistend repeatelse put 0 into slistset selectedLine of window wName to slistend ifend selectNewTitleon entryTitleglobal CNMsaveCheck,CNMcheckListput winList(true) into wNameif wName <> empty thenput winNumber(wName) into wput selectedLine of window wName into listif w > 3 then setReadList2 list,the text of window wNameelse setReadList list,wput true into item w of CNMsaveCheckput list into line w of CNMcheckListend ifend entryTitleon showTitleWindow w,mode,listglobal CNMsaveCheck,OCwinget CNMwinName()if mode is "ﾃｮ窶佚ｧﾃ愿ｨﾃ｡" then put it & "ﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀" && "-" && w && "-" into wNameelse put it && "-" && w && "-" into wNameif there is a window wName thenshow window wNameelseset the cursor to watchput "TITLElist" & w into fNameif list is empty then put bg fld fName into listif list <> empty thenput rect of bg fld fName into wRectadd 40 to item 4 of wRectput bg fld id (104 + w) into slistif slist is empty or mode <> true thenput 0 into slistelseput char 1 to 260 of slist into slistrepeat until the number of chars of slist < 254delete last item of slistend repeatend ifListoid wName,list,"zoom",wRect,"dis",slist,"ASLFont+,9",return,DontAllowReorgget the resultif it <> empty thenbeepanswer itend ifif "ﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀" is in wName then add 6 to wput false into item w of CNMsaveCheckput true into OCwinend ifend ifend showTitleWindowfunction CNMwinNameget line 1 of bg fld id 61repeat until "," is not in itput " " into char offset(",",it) of itend repeatreturn itend CNMwinNameon showFoundWindowset cursor to watchput false into wrepeat with r = 3 down to 1put "ﾃ･ﾃｼﾃｧﾄｱﾃ･ﾃ｣ﾃ｢ﾂ  -" && r && "-" into wNameif there is a window wName thenshow window wNameput true into wend ifend repeatif w is false then send "mouseUp" to bg btn id 94end showFoundWindowon showComChainset the cursor to watchput (the optionKey is down) into opput winList(true) into wNameif wName <> empty thenget selectedLine of window wNameget line (item 1 of it) of text of window wNameif it <> empty thencomChain it,opelserepeat with r = 3 down to 1put "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™ -" && r && "-" into wNameif there is a window wName then show window wNameend repeatend ifend ifreturn wNameend showComChainon comChain cTitle,opput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶凖ｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"set the cursor to watchput " " into char 1 of cTitleput word 1 of cTitle into cNumput length(cNum) - 1 into lif l is 2 then put 22 into pelse put 24 into pput " " & cNum & " ," into sListget char p to (p + l) of cTitleif cNum is a integer then put " " & cNum & " ," after sListput bg fld "TITLElist1" into titleListput bg fld "TITLElist2" after titleListput bg fld "TITLElist3" after titleListput UxSearchChain(cTitle,titleList) into fTitleput cTitle && "ﾃ⒃" && the number of lines of fTitle && "ﾃ･ﾃｨﾃ⒄" into promptdelete char (p - 7) to (p + l) of promptsort lines of fTitleput MtSortByRes(fTitle) into fTitleput empty into sif op thenput the number of lines of fTitle into nrepeat with r = 1 to nget word 1 of line r of fTitleif it is "+" then get word 2 of line r of fTitleif it >= cNum then put r & "," after send repeatend ifsend "foundTitle fTitle,prompt,cTitle,s" to bg btn id 94hide msgend comChainon showTitleList list,prompt,selectedListglobal ListSelectExitget ListSelect ("3#",list,prompt,"s=" & selectedList,"NoDoubleClick","22,12","ASLFont+,9","OK",return,2000)if ListSelectExit <> "Cancel" and it <> empty thenset the cursor to watchrepeat with r = 102 to 104if the hilite of bg btn id r then put r - 101 into wend repeatget switch(it)setReadList it,wend ifhide msgend showTitleListon stackCNMWinglobal OCwinput winList() into wListsort lines of wListput the number of lines of wList into nif n < 1 then exit stackCNMWinput the top of cd window into tput the left of cd window into lput (5 - l) &","& (43 - t) &","& (500 - l) &","& (295 - t) into tRectput the number of lines of wlist into nrepeat with r = 1 to nset cursor to busyget line r of wListset rect of window it to tRectshow window itadd 10 to item 1 of tRectadd 15 to item 2 of tRectadd 10 to item 3 of tRectadd 15 to item 4 of tRectend repeatput true into OCwinend stackCNMWin-- CNMﾃ嘉…ﾃ泳ﾃ嘉姪…[on setCNMMenuset the cursor to watchif there is not a menu "CNM" thenput cnmMList() into miput "cnmWin1,cnmWin2,cnmWin3,showPlte,-,cnmFind1,cnmFind2,cnmFind3,cnmFind4,cnmFind5,-,showComChain,selectNewTitle,stackCNMWin,CNMallClose,setCNMMenu,-," into mmcreate menu "CNM"put mi after menu "CNM" with menuMessage mmelseput the number of lines of menu "CNM" into nrepeat with r = n down to 18delete menuItem r of menu "CNM"end repeatend ifget winList()if it is empty thenput "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ右ﾃ韻ﾃ嘉ｬﾃ栄ﾃ右" after menu "CNM"set the enabled of last menuItem of menu "CNM" to falseelse put it after menu "CNM"end setCNMMenufunction cnmMListreturn "ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶ,ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶﾃ⑿ﾃｫIﾃｫï｣ｿﾃ⒀,ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀,ﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃｯ¥ﾃｩﾂｶ,-,ﾃ･ﾃｼﾃｧﾄｱ...,ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣,ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬ,ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥,ﾃｩﾂｩﾃｯ邃｢ﾃ‡ﾃεｮ竕 ﾃ･ﾃｦ,-,ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃｭﾂｫﾃｪ窶™,ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｫIﾃｫï｣ｿ,ﾃ右ﾃ韻ﾃ嘉ｬﾃ栄ﾃ右ﾃｪﾃ†ﾃｬ竅„,ﾃｫSﾃ‡ﾆ津ｯﾂｬﾃ‡竏づ‡ﾃˆ,ﾃ嘉…ﾃ泳ﾃ嘉姪…[ﾃｧXﾃｪV,-,"end cnmMListon cnmWin1get "ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶ"send "mouseUp it" to bg btn id 92end cnmWin1on cnmWin2get "ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶﾃ⑿ﾃｫIﾃｫï｣ｿﾃ⒀"send "mouseUp it" to bg btn id 92end cnmWin2on cnmWin3get "ﾃ右ﾃ隠ﾃ嘉ｬﾃ栄ﾃ右ﾃｯ¥ﾃｩﾂｶﾃ⑿ﾃｮ窶佚ｧﾃ愿ｨﾃ｡ﾃ⒀"send "mouseUp it" to bg btn id 92end cnmWin3on showPlteget "ﾃ英ﾃ嘉･ﾃ叡ﾃ曳ﾃｯ¥ﾃｩﾂｶ"send "mouseUp it" to bg btn id 92end showPlteon cnmFind1send "mouseUp" to bg btn id 94end cnmFind1on cnmFind2get "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣"send "mouseUp it" to bg btn id 94end cnmFind2on cnmFind3get "ﾃｧ竕暗ｪVﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬ"send "mouseUp it" to bg btn id 94end cnmFind3on cnmFind4get "ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥"send "mouseUp it" to bg btn id 94end cnmFind4on cnmFind5get "ﾃｩﾂｩﾃｯ邃｢ﾃ‡ﾃεｮ竕 ﾃ･ﾃｦ"send "mouseUp it" to bg btn id 94end cnmFind5on RoomTitle ForumName,titleList,logHeader,MESNo,roomNameglobal cNMDialogOFF,cNMautoReadif line 1 of titleList is "ﾃ…ﾃ嘉運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃ…ﾃ‘" then put "RTN" into modeelse put "RMN" into modeput mode && ":" && ForumName && MESNo && "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｭﾃœ"put false into FCarddelete line 1 to 2 of titleListput addZero(MESNo,2) into MESNorepeatget word 1 of last line of titleListif it is not a integer thendelete last line of titleListelseput it into lastNumexit repeatend ifend repeatdelete char 1 to 8 of roomNameput the number of chars of roomName into cndelete char offset("  ﾃｮ竕 ﾃ･ﾃｦﾃｪﾃｮ :",roomName) to cn of roomNameif char 7 of titleList is " " then put 5 into welse put 3 into wput word 1 of first line of titleList into n1Fput word 1 of last line of titleList into n1Lput reBadChar2(pathToFile(line 2 of logHeader)) into fileNameput the number of lines of titleList into nnrepeat with r = 1 to nnset the cursor to busyget line r of titleListput "+ " & addzero(word 1 of it,w) into char 1 to (w + 1) of itif w is 5 thenput " " into char 36 to 38 of itdelete char 23 to 28 of itelsedelete char 31 to 34 of itdelete char 21 to 26 of itend ifput it into line r of titleListend repeatpush cardlock screenset the lockMessages to trueput the number of cards of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" into cnput empty into emptyCardrepeat with r = 2 to cngo to cd r of bg "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ"set the cursor to busyput bg fld id 14 into cdForumName -- ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃｱﾂｺput bg fld id 87 into cdMESNo -- ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｮ窶佚ｧﾃœif cdForumName is empty then put the short id of this cd into emptyCardif cdForumName is ForumName and cdMESNo is MESNo thenput bg fld "TITLElist1" into dataListput bg fld "TITLElist2" after dataListput bg fld "TITLElist3" after dataListsort lines of dataListput MtScanList(dataList,"+ ") into cput the number of lines of c into nrepeat with i = 1 to nset the cursor to busyput " " into char 1 of line (item 1 of line i of c) of dataListend repeatput titleList & return after dataListputTitle dataList,lastNum,fileName,n1F,n1Lput roomName & return & line 2 of logHeader into bg fld id 61put true into FCardLoadCard the short id of this cdif bmSetting(the short name of this bg) and cNMautoRead thenbookmark the short id of this cd,trueend ifend ifend repeat-- ﾃｪVﾃ｣K / ﾃ雨ﾃ…[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡if FCard is false thenput ForumName && MESNo & "-" & mode into cNMDialogOFFif emptyCard <> empty thengo to cd id emptyCardreNameCard cNMDialogOFFelseput cNMDialogOFF && "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ雨ﾃ…[ﾃ栄ﾃｭﾂｫﾃ｢ﾂ｡ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"doMenu "New Card"end ifput false into cNMDialogOFFput ForumName into bg fld id 14put MESNo into bg fld id 87-- ﾃ液ﾃ羽ﾃ…[ﾃ嘉｢ﾃ嘉„ﾃｱﾂｺﾃｭﾂｫﾃ｢ﾂ｡get newForum (ForumName)putTitle titleList,lastNum,fileName,n1F,n1Lput roomName & return & line 2 of logHeader into bg fld id 61LoadCard the short id of this cdif bmSetting(the short name of this bg) and cNMautoRead thenbookmark the short id of this cd,trueend ifend ifpop cardunlock screenput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & ForumNameend RoomTitleon putTitle dataList,lastNum,fileName,n1F,n1Lput empty into bg fld id 100put empty into bg fld id 101put empty into bg fld id 106put empty into bg fld id 107put lastNum into bg fld id 111put cd fld id 3 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" into maxfrepeat until length(dataList) < (29600 * maxf)delete line 1 to 10 of dataListend repeatput word 1 of first line of dataList into n2Fif n2F is "+" then put word 2 of first line of dataList into n2Fput word 1 of last line of dataList into n2Lif n2L is "+" then put word 2 of last line of dataList into n2Lput bg fld id 114 into logListput line 3 of logList into NListrepeat until NList is emptyif item 1 of NList < n2F or item 1 of NList > n2L thendelete item 1 of NListdelete item 1 of line 1 of logListdelete item 1 of line 2 of logListdelete item 1 of line 3 of logListelseexit repeatend ifend repeatput (the number of items of NList) + 1 into n3put fileName into item n3 of line 1 of logListput n1F into item n3 of line 2 of logListput n1L into item n3 of line 3 of logListput logList into bg fld id 114put "ﾃ嘘ﾃ嘉…ﾃ嘉ｬﾃ曳ﾃ荏ﾃ宇ﾃ…[ﾃ嘉ｬﾃ‡窶ｦﾃｯﾂｿﾃ‡笳甘ｫﾃｷﾃ‡ﾂｶﾃｭﾃœ"put MtSortByRes(dataList) into dataListrepeatif line 1 of dataList <> empty then exit repeatdelete line 1 of dataListend repeatput the number of lines of dataList into nput empty into listput 1 into fput 400 into rnrepeatset the cursor to busyput "TITLElist" & f into fNameget line 1 to rn of dataListif it <> empty and last char of it <> return then put return after itif length(list & it) > 30000 thenput list into bg fld fNameput selectList(list) into bg fld id (104 + f)put it into listadd 1 to fif f > maxf thenexit repeatend ifelse if n < 1 thenput it after listput list into bg fld fNameput selectList(list) into bg fld id (104 + f)exit repeatelseput it after listend ifdelete line 1 to rn of dataListsubtract rn from nif the number of lines of list <= 10 then put 400 into rnelse put 10 into rnend repeatend putTitlefunction reBadChar2 txtput "^,!,<,/,(,ﾂｨ" into charListrepeat with r = 1 to 6put item r of charList into c1put the number of chars of txt into nrepeat with c = n down to 1get char c of txtif it is c1 then put "¥" & c1 into char c of txtend repeatend repeatreturn txtend reBadChar2function selectList listput MtScanList(list,"+ ") into pput the number of lines of p into nput empty into srepeat with r = 1 to nset the cursor to busyget item 1 of line r of pif char 1 of line it of list is "+" then put it & "," after send repeatreturn send selectListon BringFld fNameset the cursor to watchlock screenselect bg fld fNameif the version < 2.2 thendoMenu "Bring Closer"doMenu "Bring Closer"elsedoMenu "Bring Closer" with shiftKeyend ifchoose browse toolset the hilite of bg btn id 102 to falseset the hilite of bg btn id 103 to falseset the hilite of bg btn id 104 to falseput (last char of fName) + 101 into iset the hilite of bg btn id i to trueget "bg fld" && fNamesetScrollFld it & ",98"unlock screendo "select line 0 of" && itend BringFldon setReadList list,wif list <> empty thenset the cursor to watchput "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳ﾃｬoﾃｲ^ﾃｭﾃ愿③ﾃｨ竕 ﾃ‡ﾂｵﾃ‡ﾂｮﾃｫ窶愿‡ﾃｸﾃ‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"put cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " into readListput the hilite of cd btn id 7 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" into modeif w is 1 then put 58 into felse if w is 2 then put 100 into felse if w is 3 then put 101 into fput bg fld id f into mesListput word 1 of mesList into mesNoif mesNo is not a integer then put word 2 of mesList into mesNoif length(mesNo) is 3 then put 26 into melse put 30 into mput bg fld id 14 into forumNameput bg fld id 87 into roomNumput bg fld id 111 into lastNumput the number of items of list into lnrepeat with r = 1 to lnset cursor to busyput item r of list into lget line l of mesListput word 1 of it into mesNoif mesNo is not a integer then put word 2 of it into mesNoif (lastNum - mesNo) >= 999 and (65000 - lastNum + mesNo) >= 999 thenbeepanswer "999ﾃｮ竕 ﾃ･ﾃｦﾃ‡ﾃ甘‡ﾃ凝ｫOﾃ‡ﾃ陛ｬﾂｫﾃ‡ïｬﾃ‡ﾂｱﾃ‡竏†ﾃ‡邃｢ﾃｨoﾃｳﾃ ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"next repeatend ifdelete char 1 to (m + 1) of itif it is empty or mesNo is not a integer then next repeatput forumName && roomNum && mesNo into readNumget readNum & "   " & itif it is not in readList then put it & return after readListif mode then put "*" into char m of line l of mesListend repeatput readList into cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 "mark cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 "if mode then put mesList into bg fld id fend ifhide msgend setReadListon setReadList2 list,titleif list <> empty thenset the cursor to watchput "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳ﾃｬoﾃｲ^ﾃｭﾃ愿③ﾃｨ竕 ﾃ‡ﾂｵﾃ‡ﾂｮﾃｫ窶愿‡ﾃｸﾃ‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"put cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 " into readListput the hilite of cd btn id 7 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" into modeput word 1 of title into mesNoif mesNo is not a integer then put word 2 of title into mesNoif length(mesNo) is 3 then put 26 into melse put 30 into mput bg fld id 14 into forumNameput bg fld id 87 into roomNumput bg fld id 111 into lastNumif mode then put 3 into nelse put 1 into nrepeat with f = 1 to nif mode thenput "TITLElist" & f into fNameput bg fld fName into mesListend ifput the number of items of list into lnrepeat with r = ln down to 1set cursor to busyput line (item r of list) of title into checkTitleget checkTitleput word 1 of it into mesNoif mesNo is not a integer then put word 2 of it into mesNoif (lastNum - mesNo) >= 999 then next repeatdelete char 1 to (m + 1) of itif it is empty or mesNo is not a integer then next repeatput forumName && roomNum && mesNo into readNumget readNum & "   " & itif it is not in readList then put it & return after readListif mode thenput item 1 of MtScanList(mesList,char 3 to 28 of checkTitle) into lif l <> empty thenput "*" into char m of line l of mesListdelete item r of listend ifend ifend repeatif mode then put mesList into bg fld fNameend repeatput readList into cd fld id 2 of cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 "mark cd " ﾃｮ竕 ﾃ･ﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ嘉､ﾃ厩ﾃ曳 "end ifhide msgend setReadList2----- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ -----on makeMacroglobal cNMvariableListset the cursor to watchput bg fld "subMenu" into cdNameReportCdNameput cdName & "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put bg fld id 14 into forumNameput bg fld id 87 into roomNum-- GO Forumput "cNM" & forumName & "_" into variableName1do "global" && variableName1if MtScanList (cNMvariableList,variableName1,,true) is empty thendo "put empty into" && variableName1putVariableName variableName1get MacroGoForum(forumName)do "put it after" && variableName1end ifput false into crepeat with r = 1 to roomNumput variableName1 & "MES" & addzero(r,2) into vnif MtScanList (cNMvariableList,vn,,true) <> empty thenput true into cexit repeatend ifend repeatif c and the hilite of cd btn id 11 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹" is false then put "s:RX " into commandelse put "s:MES " into commandput variableName1 & "MES" & roomNum into variableName2if MtScanList (cNMvariableList,variableName2,,true) is empty thendo "global" && variableName2do "put empty into" && variableName2putVariableName variableName2end ifif (forumName & return is in cd fld id 1 of cd "ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾃ烏ﾃ嘉｢ﾃ…[ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹") thenget macro2(forumName,roomNum,command)elseget macro1(forumName,roomNum,command)end ifput checkLabel(it) into labelListput "*: TotalLabel : " & the number of items of labelList & return after itdo "put it after" && variableName2end makeMacrofunction macro1 forumName,roomNum,commandput bg fld id 116 into command2put "m:" && "[" && ForumName && "] MES:" & roomNum && command2 & "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｩﾃ甘ｬﾃｦ" & return into mput nextLabel() into label1put nextLabel() into label2put nextLabel() into label3put command & roomNum & "^m" & return &ﾂｬ"r:^mﾃ❶ﾃ｢ﾃ氾｣cﾃｩ竏ｫﾆ’" & label3 & ":^mﾃ…ﾃｼ" & return &ﾂｬ"r:^mCCS(.)>" & return &ﾂｬ"s:" & command2 & "^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label1 & ":^mCCS(.)>" & return &ﾂｬ"s:RC MAX^m" & return &ﾂｬ"r:^mCCS(.)>" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel3 & ":" & return &ﾂｬ"r:ﾃ‡竕､ﾃｳﾃｲﾃｳpﾆ’" & label2 & ":ﾃ…ﾃｼ" & return &ﾂｬ"r:^mFORUM>" & return &ﾂｬ"j:" & label1 & return &ﾂｬlabel2 & ":" & return &ﾂｬ"r:^mCCS(.)>ﾆ’" & label1 & ":^mﾃ…ﾃ‘" & return &ﾂｬlabel1 & ":" & return after mreturn mend macro1function macro2 forumName,roomNum,commandput bg fld id 116 into command2put "m:" && "[" && ForumName && "] MES:" & roomNum && command2 & "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｩﾃ甘ｬﾃｦ" & return into mput nextLabel() into label1put command & roomNum & "^m" & return &ﾂｬ"r:^mCCS(.)>ﾆ’" & label1 & ":^mFORUM>" & return &ﾂｬ"s:" & command2 & "^m" & return &ﾂｬ"r:^mﾃ…ﾃ柁’" & label1 & ":^mCCS(.)>" & return &ﾂｬ"s:RC MAX^m" & return &ﾂｬ"r:^mCCS(.)>" & return &ﾂｬlabel1 & ":" & return after mreturn mend macro2----------on GComBtnreturn "bg btn id 66"end GComBtnon scrFldif the visible of bg btn id 102 then get "bg fld id 58"else get "bg fld id 58"setScrollFld itend scrFld</script>
</background>